home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques4.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form QUES4 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 4"
  6.    ClientHeight    =   4170
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6360
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   4575
  13.    Left            =   1035
  14.    LinkTopic       =   "QUES4"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   4170
  19.    ScaleWidth      =   6360
  20.    Top             =   1140
  21.    Width           =   6480
  22.    Begin CommandButton Command1 
  23.       BackColor       =   &H00C0C000&
  24.       Caption         =   "Yes, the right amount of information"
  25.       Height          =   495
  26.       Index           =   0
  27.       Left            =   1440
  28.       TabIndex        =   3
  29.       Top             =   1320
  30.       Width           =   3375
  31.    End
  32.    Begin CommandButton Command1 
  33.       BackColor       =   &H00C0C000&
  34.       Caption         =   "No, more than I can use"
  35.       Height          =   495
  36.       Index           =   1
  37.       Left            =   1440
  38.       TabIndex        =   2
  39.       Top             =   1920
  40.       Width           =   3375
  41.    End
  42.    Begin CommandButton Command1 
  43.       BackColor       =   &H00C0C000&
  44.       Caption         =   "No, not enough information"
  45.       Height          =   495
  46.       Index           =   2
  47.       Left            =   1440
  48.       TabIndex        =   1
  49.       Top             =   2520
  50.       Width           =   3375
  51.    End
  52.    Begin CommandButton Command2 
  53.       BackColor       =   &H00C0C000&
  54.       Cancel          =   -1  'True
  55.       Caption         =   "Cancel"
  56.       Default         =   -1  'True
  57.       Height          =   495
  58.       Left            =   2520
  59.       TabIndex        =   0
  60.       Top             =   3240
  61.       Width           =   1695
  62.    End
  63.    Begin Label Label1 
  64.       BackColor       =   &H00800080&
  65.       Caption         =   "Overall, do you get the right amount of information?"
  66.       ForeColor       =   &H00FFFFFF&
  67.       Height          =   375
  68.       Left            =   960
  69.       TabIndex        =   5
  70.       Top             =   840
  71.       Width           =   4575
  72.    End
  73.    Begin Label Label2 
  74.       BackColor       =   &H00800080&
  75.       Caption         =   "You get information from many sources (clients, editors, internal sources, articles, etc.)  "
  76.       ForeColor       =   &H00FFFFFF&
  77.       Height          =   495
  78.       Left            =   360
  79.       TabIndex        =   4
  80.       Top             =   120
  81.       Width           =   5655
  82.    End
  83. End
  84.  
  85. Sub Command1_Click (index As Integer)
  86.  
  87. Question14 = ""
  88. Select Case index
  89.     Case 0
  90.         Question4 = "1"
  91.     Case 1
  92.         Question4 = "2"
  93.     Case 2
  94.         Question4 = "3"
  95. End Select
  96. If Question4 <> "" Then
  97.     ques5.Show
  98. Else
  99.     MsgBox ("Please answer the current question before moving on!")
  100. End If
  101.  
  102. End Sub
  103.  
  104. Sub Command2_Click ()
  105.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  106.     If response = 1 Then
  107.         End
  108.     End If
  109. End Sub
  110.  
  111.